home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 2 / 64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64 / file printer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  1.8 KB  |  64 lines
  1. 10 poke 53280,0:poke 53281,1:print chr$(30)chr$(14)chr$(147)
  2. 20 print"   [196]er [196]isketteninhalt wird in [203]lein-"
  3. 30 print
  4. 40 print" schrift auf einem [196]rucker ausgegeben."
  5. 50 print"    [194]itte "chr$(18)"'[196]rucker'"chr$(146)" einschalten
  6. 60 [153]
  7. 70 [153]"       und (NULL)aste druecken !
  8. 80 poke198,0
  9. 90 geta$:m=m+1:ifm=10thenm=0
  10. 100 printmid$("[146]",m/5+1,1);
  11. 110 print"[203]laus [199]rabietz,[193]m [215]einberg14,3108 [215]insen"
  12. 120 print"             [198]ile [208]rinter               "
  13. 130 ifa$=""goto90
  14. 140 print"       [206]aechste [196]iskette - "chr$(18)"'[198]7'"
  15. 150 print
  16. 160 print"                    [197]nde - "chr$(18)"'[198]1'"
  17. 170 poke198,0
  18. 180 getc$:ifc$=chr$(136)then210
  19. 190 ifc$=chr$(133)thenprint"[147]":end
  20. 200 goto180
  21. 210 dim f$(152)
  22. 220 dim g$(152)
  23. 230 print chr$(147)chr$(31)chr$(142)
  24. 240 open9,8,0,"$"
  25. 250 get#9,a$,b$:n0=0
  26. 260 get#9,a$,b$:z0=0:x$=""
  27. 270 ifst<>0then350
  28. 280 get#9,a$,b$
  29. 290 n$=chr$(0)
  30. 300 g$=right$("      "+str$(asc(a$+n$)+asc(b$+n$)*256),6)
  31. 310 get#9,a$:ifa$=chr$(34)thenz0=sgn(z0+1)
  32. 320 ifa$=""thenn0=n0+1:n1=n0-1:gosub360:goto260
  33. 330 ifz0=1theng$=g$+a$
  34. 340 goto310
  35. 350 close9:goto470
  36. 360 ifn0=1then440
  37. 370 iflen(g$)=6then460
  38. 380 aa$="":fori=8to24:c$=mid$(g$,i,1):ifc$=chr$(34)theni=24:goto400
  39. 390 aa$=aa$+c$
  40. 400 nexti:g$(n1)=left$(aa$+"                  ",18)+left$(g$,6)+"  "+id$
  41. 410 h1$=mid$(g$(n1),22,3):h2$=left$(g$(n1),16)
  42. 420 h$=h1$+" "+h2$+" "+mid$(g$,26,3):print"       "h$:a=a+1:f$(a)=h$:printchr$(142)
  43. 430 return
  44. 440 cc$=right$(g$,24):id$=mid$(cc$,20,2):print"       ";cc$:return
  45. 450 print
  46. 460 print"    ";g$;" bloecke frei.":cc$=cc$+g$+" bloecke frei.  "+da$:return
  47. 470 open1,4
  48. 480 print#1:cmd1 :printchr$(27)chr$(15);:printchr$(27)"s"chr$(0);
  49. 490 print#1,chr$(27)"a"chr$(5);"name : ";mid$(cc$,2,16);
  50. 500 print#1,"     nr. : ";id$;
  51. 510 print#1,"      "mid$(cc$,28,16)
  52. 520 print#1,"==============================================================";
  53. 530 print#1,"================="
  54. 540 ifa/3<>int(a/3)anda-3*int(a/3)=2thena=a+3:goto560
  55. 550 ifa/3<>int(a/3)anda-3*int(a/3)=1thena=a+3:goto560
  56. 560 forx=1toint(a/3)
  57. 570 print#1," "f$(x);"   ";
  58. 580 print#1,f$(x+int(a/3));"   ";
  59. 590 print#1,f$(x+2*int(a/3))
  60. 600 next:goto620
  61. 610 print#1,mid$(cc$,28,16)
  62. 620 close1
  63. 630 printchr$(30)chr$(14)chr$(147):run140
  64.